Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1262 1855 (N65W45 L=349)  1196    149        1 (1195/1836-1317/1881)   2.0 W32-W63 N62-N67
      2 1564 1578 (N37W50 L=354)   377     55        0 (1534/1562-1596/1592)   7.1 W46-W54 N36-N38
      3  958 1416 (N29E03 L=300)   832    247        2 ( 915/1323-1027/1475)  78.7 E06-W01 N23-N33
      4  264 1288 (N21E59 L=244)   452     84        2 ( 239/1258- 293/1321)  31.0 E62-E56 N19-N23
      5 1022 1305 (N22W01 L=304)   281    116        0 ( 969/1291-1082/1317)  -9.5 E02-W04 N20-N22
      6 1491 1233 (N15W32 L=336)   242     56        1 (1466/1200-1514/1257)  45.0 W29-W33 N13-N16
      7  247 1095 (N09E57 L=246)   581     96        1 ( 229/1042- 267/1139) -63.4 E59-E54 N05-N11
      8 1750  853 (S10W51 L=355)   575     40        0 (1726/ 825-1773/ 880)  45.0 W49-W54 S12-S08
      9  828  817 (S08E13 L=291)   764    200        2 ( 744/ 768- 878/ 864)  26.6 E18-E09 S11-S05
     10 1263  724 (S15W14 L=318)   291     84        1 (1232/ 694-1280/ 763)  59.0 W12-W15 S17-S12
     11 1139  714 (S15W06 L=310)   214     62        0 (1129/ 677-1150/ 751)  76.0 W05-W07 S17-S13
     12  345  650 (S19E52 L=251)   534     77        2 ( 318/ 619- 387/ 676)  18.4 E56-E47 S20-S16
     13 1568  605 (S25W38 L=342)   470     95        1 (1538/ 575-1607/ 639) -29.7 W35-W42 S27-S22
     14 1181  152 (S67W18 L=321)   753     67        0 (1157/ 122-1198/ 184) -34.4 W11-W30 S74-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