Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  637 1525 (N17E33 L=243)   747    177        1 ( 556/1501- 714/1544)  11.3 E39-E28 N16-N19
      2 1690 1457 (N33W40 L=317)  1238    230        2 (1620/1348-1753/1530) -39.3 W33-W45 N27-N37
      3  356 1373 (N05E50 L=227)   456     67        2 ( 340/1330- 380/1417) -59.0 E51-E48 N02-N07
      4 1675 1285 (N21W38 L=315)   271     75        0 (1647/1272-1717/1301)   9.5 W35-W41 N20-N22
      5  147 1174 (S08E67 L=209)   786    119        0 ( 134/1119- 159/1246) -82.9 E69-E65 S11-S03
      6 1265 1175 (N06W11 L=288)   180     49        0 (1234/1161-1297/1187)   0.0 W09-W13 N05-N06
      7 1842 1160 (N18W54 L=331)   754    148        2 (1774/1132-1908/1182)  14.0 W47-W63 N15-N20
      8 1046 1133 (N00E00 L=276)   209     69        1 (1003/1115-1075/1153)   0.0 E03-W01 N00-N01
      9  439 1101 (S10E38 L=239)   360    116        1 ( 405/1054- 483/1143)  56.3 E39-E34 S13-S07
     10 1890  972 (N08W62 L=339)  4190    295        7 (1823/ 877-1954/1058)  45.0 W54-W72 N01-N14
     11 1009  730 (S24W04 L=281)   519    212        0 ( 954/ 651-1086/ 810)  67.4 W02-W07 S29-S17
     12 1115  570 (S32W15 L=292)  2654    662        2 ( 985/ 479-1289/ 683)  41.2 W06-W27 S38-S22
     13 1667  451 (S26W63 L=340)  4231    335        7 (1599/ 374-1773/ 557) -38.2 W53-W85 S30-S19
     14 1096  373 (S45W21 L=298)  3142    760        6 ( 803/ 261-1445/ 475)   1.8 E04-W59 S47-S41
  

    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