Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  415 1487 (N21E51 L=183)   985    215        4 ( 380/1425- 456/1546) -26.6 E57-E45 N17-N23
      2  295 1467 (N18E63 L=172)   619    152        0 ( 282/1398- 311/1521) -63.4 E65-E60 N13-N21
      3  923 1387 (N21E12 L=223)   275     74        0 ( 908/1350- 942/1427) -63.4 E13-E09 N19-N23
      4  559 1340 (N13E35 L=200)   296    118        0 ( 525/1303- 593/1371) -23.2 E38-E31 N11-N15
      5  908 1230 (N11E10 L=225)   315     62        1 ( 886/1199- 936/1262) -53.1 E11-E08 N09-N13
      6  297 1191 (N01E53 L=181)   377     88        2 ( 276/1167- 317/1215) -11.3 E55-E50 N00-N02
      7 1666 1156 (N17W42 L=276)   485    132        0 (1622/1097-1685/1206) -50.2 W37-W43 N13-N19
      8 1436 1145 (N13W24 L=259)   441    181        1 (1342/1128-1503/1172)  15.3 W18-W29 N11-N15
      9 1626 1118 (N14W39 L=273)   273     59        1 (1595/1096-1655/1140)   0.0 W36-W41 N12-N15
     10 1532  943 (N02W33 L=268)  1378    320        3 (1491/ 836-1609/1066)  77.9 W30-W37 S04-N10
     11 1333  814 (S08W22 L=256)   371    134        1 (1286/ 781-1381/ 842) -18.4 W19-W25 S10-S06
     12 1256  713 (S15W19 L=253)  1025    328        4 (1134/ 674-1389/ 768)  14.0 W11-W27 S18-S12
     13 1616  685 (S13W45 L=280)  1405    186        3 (1572/ 604-1657/ 755)  90.0 W41-W48 S17-S07
     14 1204  566 (S26W19 L=253)   528    173        0 (1146/ 538-1272/ 611)  20.6 W14-W22 S27-S22
     15 1339  456 (S31W32 L=266)   585     86        3 (1297/ 436-1377/ 482)  31.0 W28-W34 S32-S29
  

    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