Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  596 1472 (N45E17 L=255)   405     81        1 ( 577/1427- 617/1516)  59.0 E19-E14 N41-N47
      2 1750 1454 (N08W63 L=336)   674     84        1 (1715/1416-1779/1497) -63.4 W61-W66 N05-N11
      3 1795 1241 (S04W57 L=329)   486    133        0 (1748/1217-1830/1259) -35.5 W52-W59 S06-S01
      4 1408 1204 (N06W27 L=299)   320    136        0 (1349/1156-1444/1249)  12.5 W21-W30 N05-N07
      5 1138 1170 (N12W10 L=283)   724    246        1 (1017/1139-1265/1193) -18.4 W02-W17 N08-N14
      6  955 1149 (N16E01 L=272)   304     79        1 ( 930/1110- 978/1191)  36.9 E03-W01 N14-N17
      7  436  902 (N14E39 L=233)  2409    595        9 ( 237/ 833- 660/ 963) -23.4 E55-E25 N06-N20
      8 1667  918 (S17W36 L=309)   820    176        3 (1617/ 877-1736/ 960) -36.9 W31-W41 S20-S13
      9 1528  743 (S23W23 L=295)   747    167        1 (1479/ 655-1564/ 821)  45.0 W17-W26 S27-S18
     10 1030  674 (S13E09 L=264)   519    192        1 (1008/ 568-1068/ 753)  48.4 E13-E04 S18-S08
     11  933  700 (S09E14 L=259)   246     82        1 ( 902/ 664- 973/ 730)  18.4 E16-E10 S10-S07
     12  906  620 (S13E17 L=255)   220     81        0 ( 876/ 597- 951/ 647) -45.0 E18-E15 S14-S10
     13 1504  543 (S36W18 L=290)   401     61        1 (1477/ 518-1539/ 566) -11.3 W15-W20 S37-S33
     14  534  344 (S22E55 L=218)  3428    386        5 ( 428/ 219- 624/ 457)  84.6 E58-E51 S33-S12
  

    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