Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1644 1553 (N20W61 L=187)   584     94        0 (1599/1535-1691/1574) -35.5 W56-W65 N17-N22
      2 1275 1502 (N29W29 L=156)   372     92        2 (1236/1471-1304/1542)  15.9 W26-W33 N26-N30
      3 1646 1480 (N16W56 L=182)   348     54        2 (1620/1453-1666/1502)  76.0 W53-W57 N14-N18
      4  181 1077 (N25E65 L= 62)  1084    115        2 ( 155/1021- 208/1125) -74.1 E69-E60 N21-N28
      5  233 1028 (N22E58 L= 69)   913    126        2 ( 213/ 959- 254/1086)  69.4 E60-E55 N17-N25
      6 1866  968 (S19W59 L=186)  1002    120        2 (1836/ 924-1889/1026) -63.4 W55-W62 S22-S14
      7 1676  904 (S16W39 L=165)   343     61        1 (1650/ 882-1712/ 928)   9.5 W36-W42 S17-S14
      8 1135  611 (S20E03 L=124)   258    114        1 (1115/ 552-1157/ 668)  54.5 E05-W00 S23-S16
      9  865  501 (S21E23 L=104)  1664    436        3 ( 730/ 370- 983/ 664)  27.4 E37-E10 S27-S12
     10 1420  596 (S28W15 L=142)   254    106        0 (1373/ 581-1472/ 610)  -7.1 W11-W19 S29-S27
     11  991  471 (S25E16 L=111)   301    119        2 ( 940/ 428-1032/ 506) -66.8 E18-E14 S29-S22
     12 1107  448 (S30E09 L=117)   231     74        0 (1069/ 432-1143/ 470)   0.0 E12-E06 S30-S29
     13  631  347 (S27E47 L= 80)  1434    290        1 ( 561/ 303- 727/ 441) -67.4 E51-E38 S31-S18
  

    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