Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1041 1712 (N45W26 L=134)   324     38        1 (1014/1690-1065/1736) -56.3 W23-W27 N42-N46
      2  399 1614 (N60E42 L= 66)   754    102        0 ( 364/1565- 443/1646)  35.5 E48-E35 N56-N62
      3 1081 1398 (N24W14 L=122)   366     57        0 (1049/1374-1128/1418) -11.3 W11-W16 N22-N25
      4 1855 1344 (S01W68 L=176)  1067     69        1 (1810/1316-1898/1367)  -7.6 W61-W76 S02-N00
      5 1327 1173 (N05W21 L=129)   186     70        0 (1289/1154-1359/1197)   0.0 W17-W22 N04-N05
      6  558 1136 (N22E25 L= 83)  1260    231        3 ( 440/1098- 676/1163) -23.6 E33-E17 N19-N26
      7 1104 1144 (N09W07 L=115)   209     86        0 (1061/1132-1153/1158) -18.4 W04-W10 N08-N10
      8 1489  858 (S16W23 L=131)   686    357        0 (1385/ 751-1592/ 993)  24.0 W13-W31 S19-S11
      9  842  919 (N04E13 L= 95)   247     92        0 ( 794/ 898- 866/ 952)  11.3 E15-E10 N02-N05
     10 1610  891 (S18W32 L=140)   435    123        1 (1568/ 847-1634/ 949)  29.7 W27-W34 S19-S15
     11  179  864 (N14E64 L= 44)  1662    204        4 ( 101/ 837- 281/ 897)  -4.6 E77-E52 N12-N17
     12  402  806 (N07E43 L= 65)   719    196        0 ( 376/ 738- 432/ 897)  56.3 E46-E40 N03-N12
     13 1741  704 (S34W41 L=149)  2156    340        2 (1650/ 599-1850/ 853)  22.2 W31-W53 S38-S27
     14  281  736 (N05E56 L= 52)   826    110        0 ( 239/ 700- 325/ 770) -39.8 E59-E52 N02-N07
     15 1482  629 (S30W18 L=126)   637    260        0 (1420/ 514-1541/ 732)  45.0 W11-W23 S36-S25
     16  663  651 (S07E30 L= 78)   476    125        1 ( 616/ 604- 715/ 701)  18.4 E34-E25 S09-S05
     17  303  596 (S03E60 L= 48)  1658    190        1 ( 234/ 521- 359/ 677)  14.0 E75-E51 S06-N01
     18 1355  363 (S45W02 L=110)   312     48        0 (1336/ 336-1374/ 396) -81.9 W01-W03 S48-S41
     19  957  218 (S43E34 L= 74)  1411    304        3 ( 817/ 175-1084/ 294)   2.0 E49-E20 S46-S40
  

    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