Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  691 1736 (N38E35 L=121)   305     62        0 ( 676/1703- 707/1766) -39.8 E37-E31 N35-N40
      2  717 1600 (N28E27 L=129)   849    276        1 ( 661/1556- 822/1679)  -4.8 E31-E19 N25-N33
      3 1709 1394 (N25W45 L=201)  1226    169        2 (1639/1334-1765/1458) -31.0 W39-W50 N21-N28
      4  304 1373 (N11E53 L=102)   573     93        2 ( 277/1324- 331/1420)  90.0 E55-E51 N08-N14
      5 1213 1355 (N16W09 L=164)   241     45        1 (1183/1335-1235/1377)   0.0 W06-W09 N15-N17
      6 1312 1323 (N15W15 L=170)   399     88        1 (1276/1286-1339/1364)  90.0 W12-W16 N13-N17
      7 1106 1212 (N07W03 L=159)  1370    381        2 ( 960/1067-1181/1337) -45.0 E06-W08 S01-N12
      8  545 1132 (S02E30 L=125)   539    144        0 ( 485/1089- 611/1162) -12.5 E34-E25 S04-N00
      9  125 1062 (S07E69 L= 87)   649     51        1 ( 106/1033- 144/1089)  18.4 E72-E65 S09-S05
     10 1004 1048 (S04E01 L=154)   198     39        0 ( 976/1031-1033/1065) -18.4 E03-W00 S04-S03
     11  844  972 (S10E10 L=145)   322    119        1 ( 789/ 938- 896/1005)  39.8 E13-E07 S12-S07
     12  268  894 (S17E52 L=103)   677    146        2 ( 243/ 829- 291/ 966) -76.0 E54-E50 S21-S13
     13  132  858 (S20E70 L= 85)  1584    137        3 ( 102/ 779- 153/ 931)  83.7 E76-E67 S24-S15
     14 1400  889 (S09W24 L=180)   327     45        1 (1374/ 855-1419/ 917) -56.3 W22-W25 S11-S07
     15 1114  772 (S19W08 L=163)  2098    778        3 ( 836/ 650-1389/ 858)   6.7 E09-W25 S27-S13
     16  972  827 (S17E01 L=154)   219     90        1 ( 930/ 806-1018/ 849)   0.0 E04-W01 S18-S16
     17  412  668 (S31E42 L=114)   446     72        0 ( 371/ 640- 450/ 700)  26.6 E46-E38 S32-S28
     18 1406  465 (S35W35 L=191)   825    132        0 (1336/ 444-1480/ 488)   4.8 W29-W42 S36-S33
     19 1404  364 (S42W41 L=197)   718    112        3 (1369/ 331-1462/ 412)  -9.5 W36-W48 S44-S38
  

    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