Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  956 1482 (N34W10 L= 97)   231     41        0 ( 930/1463- 985/1498) -14.0 W08-W12 N32-N35
      2 1696 1238 (S02W47 L=134)  1490    323        4 (1658/1137-1732/1398)  63.4 W42-W54 S08-N06
      3 1083 1298 (N20W11 L= 98)   347    102        0 (1059/1239-1113/1348)  39.8 W08-W14 N16-N22
      4  840 1098 (N15E08 L= 78)   195     98        0 ( 792/1086- 895/1109)  -9.5 E11-E05 N13-N16
      5  435 1016 (N20E36 L= 50)   658    250        0 ( 350/ 964- 537/1064) -33.7 E42-E30 N15-N24
      6 1880  952 (S24W56 L=143)   710    119        1 (1850/ 903-1904/1001)  29.7 W51-W59 S26-S21
      7  613  942 (N12E26 L= 61)   205     65        1 ( 590/ 901- 633/ 962)  33.7 E27-E24 N10-N13
      8 1432  904 (S12W20 L=106)   241     62        0 (1416/ 869-1450/ 947)  53.1 W18-W21 S13-S09
      9  926  905 (N02E09 L= 78)   312     80        1 ( 884/ 869- 958/ 944)  18.4 E11-E05 N01-N04
     10 1410  702 (S23W14 L=100)   688    138        0 (1373/ 637-1440/ 788)  45.0 W10-W17 S26-S18
     11  471  649 (S01E44 L= 42)   365     85        1 ( 455/ 607- 493/ 688)  45.0 E45-E42 S03-N00
     12 1161  474 (S29E08 L= 78)   916    250        0 (1054/ 426-1224/ 567)   4.4 E14-E01 S32-S25
     13  708  439 (S19E37 L= 50)   260     98        0 ( 692/ 402- 719/ 483)  51.3 E38-E34 S21-S16
     14  445  359 (S19E62 L= 25)  1323    253        5 ( 393/ 315- 487/ 414) -66.8 E66-E58 S22-S14
  

    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