Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1338 1773 (N55W38 L=133)   563     53        1 (1309/1749-1367/1796)  15.3 W32-W43 N53-N57
      2  880 1443 (N30E10 L= 86)  1206    287        1 ( 784/1363- 996/1524) -34.5 E17-E01 N24-N35
      3 1636 1460 (N29W49 L=145)  2184    319        4 (1489/1426-1785/1503)   1.6 W35-W71 N27-N31
      4  221 1341 (N22E66 L= 30)  2651    183        9 ( 161/1285- 276/1395)  37.9 E78-E57 N18-N25
      5  218 1264 (N17E63 L= 33)   581     96        1 ( 188/1234- 250/1296) -11.3 E68-E58 N15-N19
      6  212 1043 (N04E60 L= 36)   414     66        0 ( 181/1022- 248/1060)  14.0 E63-E55 N02-N05
      7  252  995 (N01E55 L= 41)   369     66        0 ( 234/ 966- 265/1033)  56.3 E57-E53 N00-N03
      8  574  924 (S02E29 L= 67)   214     46        0 ( 561/ 893- 587/ 952) -90.0 E29-E27 S04-N00
      9 1700  860 (S08W46 L=142)   317     39        0 (1684/ 834-1715/ 885) -71.6 W44-W47 S09-S06
     10  831  708 (S16E13 L= 83)   452    149        0 ( 785/ 655- 875/ 773)  53.1 E15-E09 S19-S11
     11 1645  640 (S22W45 L=141)   300     80        0 (1619/ 600-1675/ 661)  45.0 W42-W47 S24-S20
     12 1476  609 (S23W31 L=127)   258     71        0 (1437/ 597-1511/ 624)  11.3 W28-W33 S24-S22
     13 1206  393 (S39W13 L=109)   886    239        3 (1102/ 344-1288/ 436)  12.1 W05-W19 S42-S35
     14 1279  199 (S59W29 L=125)   547     49        0 (1255/ 183-1303/ 222) -18.4 W25-W34 S61-S55
  

    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