Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1868 (N60W52 L= 59)   895     84        4 (1166/1833-1233/1897)   3.2 W44-W64 N56-N61
      2 1501 1664 (N36W54 L= 61)   466    185        0 (1416/1648-1571/1694) -32.5 W48-W60 N33-N40
      3 1512 1547 (N29W46 L= 54)   638    106        0 (1460/1517-1564/1575) -33.7 W42-W49 N26-N31
      4  615 1347 (N32E23 L=344)   624    150        2 ( 597/1277- 634/1427)  78.7 E24-E21 N27-N37
      5  363 1282 (N31E45 L=322)  2419    369        3 ( 249/1176- 493/1409) -27.3 E64-E33 N22-N39
      6 1659 1347 (N14W49 L= 56)   491    133        0 (1621/1314-1702/1374) -15.9 W45-W52 N11-N15
      7 1282 1232 (N15W19 L= 26)   503    190        0 (1197/1208-1370/1246) -20.0 W13-W24 N11-N16
      8  485  951 (N09E35 L=332)   457     91        2 ( 466/ 895- 503/1005)  74.1 E37-E33 N05-N12
      9 1847  927 (S15W58 L= 65)  1568    179        2 (1783/ 863-1903/ 991)  17.4 W50-W66 S17-S12
     10  710  912 (N04E21 L=346)   195     42        1 ( 688/ 894- 736/ 935) -45.0 E21-E19 N03-N05
     11  760  694 (S10E21 L=346)   607    111        1 ( 739/ 632- 785/ 748)  54.5 E23-E18 S13-S06
     12  994  645 (S16E08 L=359)   665    324        0 ( 880/ 599-1100/ 708) -30.3 E13-E01 S19-S10
     13  312  580 (S13E60 L=307)  2101    369        7 ( 234/ 501- 420/ 690) -61.7 E67-E50 S18-S05
     14  565  332 (S32E51 L=317)   928    139        2 ( 520/ 296- 624/ 384)  18.4 E59-E41 S35-S28
  

    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