Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1491 1656 (N28W54 L=252)   549     90        0 (1450/1625-1527/1680) -78.7 W52-W56 N25-N30
      2 1580 1547 (N20W53 L=250)   408     77        1 (1539/1535-1621/1563) -26.6 W50-W57 N18-N21
      3 1548 1397 (N13W43 L=240)   254     42        0 (1530/1373-1564/1425)  33.7 W41-W44 N11-N14
      4  206 1400 (N48E69 L=128)   866     75        0 ( 167/1385- 251/1412)   0.0 E82-E59 N47-N49
      5 1610 1363 (N09W46 L=243)   293     78        1 (1570/1338-1635/1392)   0.0 W41-W48 N08-N10
      6  807 1285 (N27E06 L=191)   602    224        1 ( 709/1257- 916/1311) -33.7 E12-W00 N22-N30
      7  399 1140 (N28E38 L=159)   310     57        0 ( 368/1121- 438/1155)  -8.1 E41-E34 N26-N28
      8 1062 1094 (N10W04 L=201)   375    101        0 (1019/1052-1105/1131) -63.4 W02-W05 N06-N12
      9 1648  904 (S17W35 L=232)   327     58        1 (1630/ 871-1668/ 934)  45.0 W33-W36 S18-S15
     10 1345  798 (S14W13 L=210)   236     74        1 (1301/ 780-1375/ 814) -21.8 W09-W14 S14-S12
     11 1250  700 (S17W05 L=202)   635    181        0 (1210/ 627-1299/ 757)  40.6 W01-W08 S21-S14
     12  209  645 (N01E71 L=126)  1306     91        4 ( 173/ 594- 245/ 677) -90.0 E77-E65 S01-N03
     13  316  622 (S01E58 L=139)   557     85        0 ( 266/ 606- 368/ 638) -11.3 E63-E53 S02-N00
     14 1621  456 (S47W29 L=226)  1268    145        2 (1557/ 422-1681/ 508)   4.1 W21-W36 S49-S44
     15  766  331 (S28E38 L=159)  2376    389        4 ( 724/ 165- 814/ 503)  38.7 E56-E26 S41-S17
     16  392  421 (S15E64 L=133)  2210    146        6 ( 331/ 352- 426/ 479)  36.9 E71-E58 S20-S11
     17  495  420 (S17E53 L=144)   821     90        1 ( 457/ 381- 542/ 460) -59.0 E55-E49 S19-S13
     18  968  356 (S32E24 L=173)   636    210        0 ( 935/ 262-1006/ 453)  38.7 E31-E16 S38-S25
     19  479  311 (S24E65 L=132)   734     80        2 ( 447/ 281- 510/ 331) -76.0 E68-E59 S26-S22
  

    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