Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1086 1473 (N22E02 L=259)   327     51        2 (1060/1441-1115/1501)  68.2 E03-W00 N19-N24
      2 1154 1458 (N22W03 L=264)   196     66        0 (1127/1432-1182/1486)  63.4 W01-W04 N20-N24
      3  197 1359 (N08E66 L=195)  1989    319        4 ( 126/1313- 243/1401)  10.6 E78-E60 N04-N10
      4 1342 1239 (N11W17 L=278)  1355    291        6 (1261/1136-1403/1325) -55.0 W11-W21 N05-N15
      5  225 1182 (S03E58 L=203)   399     85        1 ( 199/1147- 253/1213) -38.7 E61-E54 S05-S01
      6  153 1094 (S08E65 L=196)   838    219        1 ( 120/1038- 217/1149)  28.6 E69-E58 S11-S05
      7 1818 1084 (N09W54 L=315)   434     71        1 (1800/1050-1840/1115)  63.4 W52-W55 N07-N11
      8 1868  986 (N05W60 L=321)   840    189        3 (1827/ 936-1915/1019) -33.7 W55-W66 N01-N07
      9  677  802 (S23E20 L=241)   529    183        5 ( 635/ 732- 718/ 870)  90.0 E22-E16 S27-S18
     10 1458  815 (S12W30 L=291)   380    100        1 (1407/ 792-1511/ 839)  23.2 W26-W33 S14-S10
     11 1315  763 (S17W21 L=282)   241     48        0 (1284/ 740-1343/ 781)   0.0 W19-W23 S18-S16
     12 1821  582 (S19W68 L=329)   680    136        3 (1777/ 544-1856/ 603)  32.0 W64-W72 S21-S16
     13 1465  403 (S37W44 L=305)   432     50        1 (1439/ 378-1486/ 429) -36.9 W41-W46 S38-S35
     14 1403  323 (S44W44 L=305)   470    114        4 (1369/ 283-1438/ 358) -81.9 W42-W45 S47-S40
     15  865  203 (S66W01 L=261)   748    129        2 ( 835/ 163- 893/ 243) -60.9 E03-W05 S71-S61
  

    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