Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1472 1705 (N34W49 L=182)   342     55        0 (1450/1679-1488/1725)  45.0 W47-W51 N32-N35
      2  563 1496 (N39E24 L=109)   524    124        1 ( 505/1472- 615/1523)  -6.3 E28-E19 N36-N40
      3 1085 1445 (N25W12 L=145)  1108    245        3 ( 981/1368-1187/1521) -47.7 W06-W17 N19-N31
      4 1723 1440 (N13W57 L=190)   797    108        1 (1687/1398-1763/1479) -63.4 W54-W59 N09-N15
      5 1044 1227 (N13W05 L=138)   626    186        0 ( 961/1176-1149/1276) -45.0 W00-W09 N07-N16
      6 1409 1122 (N00W24 L=157)   273    220        2 (1378/1067-1451/1178)  29.7 W21-W28 S02-N02
      7 1579 1037 (S08W34 L=167)   349    137        1 (1520/1003-1619/1059) -33.7 W30-W36 S09-S05
      8 1247  940 (S08W11 L=144)   481    168        2 (1203/ 859-1286/1031)  52.1 W07-W14 S11-S02
      9 1525  797 (S21W27 L=160)  1669    534        2 (1284/ 680-1647/ 989)  22.5 W09-W38 S25-S11
     10  244  907 (N07E55 L= 78)  1937    487        6 ( 111/ 794- 362/ 979) -30.6 E70-E46 N00-N13
     11 1538  631 (S32W27 L=160)  1672    257        2 (1414/ 535-1649/ 725)  20.2 W17-W36 S36-S27
     12 1830  675 (S36W55 L=188)   623    142        2 (1802/ 657-1867/ 702) -14.0 W51-W59 S37-S33
     13  920  640 (S19E13 L=120)   191     42        1 ( 889/ 625- 946/ 655) -33.7 E15-E11 S20-S18
     14  542  489 (S22E43 L= 90)   327     94        1 ( 527/ 454- 569/ 535)  59.0 E45-E41 S24-S19
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y