Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  652 1682 (N46E36 L=128)  2861    405        3 ( 535/1603- 790/1734)   7.8 E45-E22 N39-N50
      2 1279 1634 (N44W20 L=184)   421     72        1 (1263/1592-1297/1667)  71.6 W17-W21 N41-N47
      3  988 1616 (N42E05 L=159)   383     74        1 ( 959/1589-1014/1645)  45.0 E07-E03 N39-N44
      4 1405 1540 (N37W28 L=193)   306     65        1 (1374/1524-1437/1563)  11.3 W25-W30 N36-N39
      5  955 1411 (N27E06 L=159)   246     79        1 ( 908/1399- 990/1431)  -9.5 E09-E03 N26-N28
      6  515 1232 (N14E35 L=130)   555    119        1 ( 469/1190- 544/1261) -26.6 E38-E32 N11-N15
      7  589 1248 (N15E29 L=135)   258     96        0 ( 547/1233- 632/1259)   0.0 E32-E26 N14-N15
      8  629 1192 (N12E26 L=139)   342     50        1 ( 611/1156- 653/1229) -78.7 E27-E24 N09-N14
      9  511 1149 (N09E34 L=131)   777    242        2 ( 439/1106- 620/1203) -17.1 E39-E26 N06-N11
     10 1594  575 (S25W43 L=208)   481    131        1 (1554/ 546-1632/ 602) -26.6 W39-W47 S26-S22
     11  317  487 (S36E59 L=106)   695    220        1 ( 287/ 462- 342/ 515)  33.7 E64-E55 S39-S33
     12 1411  419 (S37W33 L=198)  1239    211        1 (1344/ 392-1500/ 469)   8.7 W26-W40 S38-S32
     13  993  388 (S40E00 L=165)  1206    303        1 ( 861/ 349-1155/ 420)  14.6 E11-W12 S43-S37
  

    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