Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1624 1668 (N26W61 L=302)   610     99        0 (1603/1642-1649/1691)  21.8 W57-W63 N24-N27
      2 1603 1500 (N17W50 L=291)  1119    183        3 (1550/1459-1668/1529) -10.3 W44-W55 N14-N19
      3 1766 1457 (N11W63 L=304)  1360    329        2 (1708/1425-1821/1509)   3.0 W55-W74 N09-N12
      4 1136 1407 (N22W15 L=256)  1106    277        0 (1006/1372-1282/1457) -26.6 W08-W24 N18-N27
      5 1734 1326 (N04W54 L=295)   323     94        1 (1704/1301-1762/1347)   8.1 W50-W57 N02-N05
      6  243 1266 (N32E51 L=190)   345     46        0 ( 218/1246- 271/1284)   0.0 E53-E48 N30-N33
      7  631 1203 (N20E20 L=221)  2023    602        2 ( 410/1166- 922/1236) -17.9 E36-E02 N13-N25
      8 1873 1081 (S13W61 L=302)   412     58        1 (1855/1061-1890/1102)  26.6 W58-W63 S13-S11
      9  945 1054 (N06E04 L=237)   215     27        0 ( 925/1030- 966/1073)  33.7 E05-E02 N04-N06
     10  199  994 (N16E58 L=183)   664    137        1 ( 165/ 937- 229/1050) -66.8 E61-E55 N12-N19
     11 1855  855 (S26W55 L=296)  2682    301        6 (1791/ 761-1906/ 949)  51.3 W48-W61 S31-S20
     12 1365  933 (S10W18 L=259)   209     69        0 (1327/ 920-1400/ 945) -21.8 W15-W20 S11-S08
     13 1361  850 (S15W16 L=257)   283     42        2 (1338/ 827-1381/ 880) -90.0 W14-W17 S16-S12
     14 1136  843 (S10W03 L=244)   258     82        2 (1093/ 814-1168/ 865)  14.0 W00-W04 S11-S09
     15 1242  810 (S14W08 L=249)   215     71        1 (1204/ 793-1279/ 831)   0.0 W05-W10 S15-S13
     16  638  747 (S06E29 L=212)   219     85        1 ( 615/ 712- 666/ 793)  45.0 E30-E26 S07-S03
     17 1274  761 (S18W09 L=250)   402    161        0 (1185/ 744-1342/ 789)  -5.2 W03-W14 S19-S16
     18  932  739 (S12E11 L=230)   221    115        0 ( 869/ 704- 961/ 768) -51.3 E14-E10 S14-S09
     19  258  521 (S13E71 L=170)  1339    158        2 ( 227/ 492- 284/ 555) -36.9 E75-E67 S14-S10
     20 1636  516 (S44W35 L=276)   617    113        1 (1604/ 484-1663/ 553) -78.7 W31-W37 S46-S41
     21  714  349 (S32E39 L=202)  1290    279        4 ( 658/ 267- 758/ 431)  32.0 E48-E32 S37-S26
     22 1465  387 (S49W19 L=260)  1103    156        2 (1406/ 357-1518/ 428) -15.3 W13-W24 S53-S45
  

    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