Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1398 1342 (N15W31 L=212)   578    128        2 (1345/1299-1456/1383) -60.3 W28-W33 N11-N18
      2  962 1350 (N27W05 L=186)   421    150        0 ( 911/1302-1026/1378)   6.3 W00-W09 N25-N28
      3  472 1289 (N36E31 L=149)  1721    438        2 ( 320/1197- 653/1348)  -3.8 E46-E16 N31-N38
      4 1782 1260 (S01W57 L=238)   542     74        1 (1743/1230-1804/1283) -18.4 W53-W59 S03-N00
      5 1422 1086 (N00W24 L=205)  1179    353        4 (1372/ 952-1472/1232)  65.0 W22-W30 S08-N07
      6 1860  962 (S21W57 L=238)  1243    222        0 (1810/ 861-1919/1035)  23.6 W50-W67 S25-S17
      7 1888  830 (S30W62 L=242)   938    109        0 (1853/ 780-1912/ 888)  45.0 W56-W66 S33-S27
      8 1329  652 (S22W09 L=189)   908    325        0 (1202/ 574-1410/ 755)  17.4 E01-W15 S24-S18
      9  930  646 (S12E15 L=166)   198     98        0 ( 896/ 629- 970/ 677) -53.1 E16-E12 S13-S09
     10 1495  632 (S29W19 L=200)   328    117        0 (1464/ 586-1536/ 676)  23.2 W16-W23 S31-S26
     11  485  466 (S14E52 L=129)   614     79        0 ( 449/ 434- 515/ 497) -59.0 E53-E49 S16-S11
     12 1295  366 (S42E01 L=180)   334     64        0 (1277/ 337-1310/ 408)  63.4 E02-W01 S44-S38
     13  877  334 (S31E31 L=150)  1088    270        0 ( 809/ 228- 961/ 406)  24.4 E43-E21 S38-S26
  

    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