Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  963 1771 (N58W12 L= 60)   479     66        1 ( 929/1744-1002/1789)   0.0 W08-W17 N55-N59
      2  762 1731 (N59E11 L= 37)   317     50        1 ( 736/1712- 791/1745)  -8.1 E14-E07 N56-N60
      3 1681 1535 (N25W62 L=110)   450     65        1 (1655/1512-1713/1565) -90.0 W59-W64 N22-N26
      4 1188 1484 (N32W19 L= 67)   297    139        0 (1129/1433-1232/1508) -54.5 W15-W21 N27-N34
      5  238 1334 (N34E62 L=345)  3484    447        3 ( 159/1132- 328/1500)  73.1 E69-E56 N21-N44
      6  991 1414 (N31W04 L= 52)   431    170        0 ( 941/1377-1070/1467) -45.0 W01-W08 N27-N34
      7 1693 1306 (N12W51 L= 99)   929    199        2 (1657/1257-1758/1385) -76.0 W47-W56 N08-N16
      8  623 1083 (N15E24 L= 23)   623    329        2 ( 527/1019- 725/1187) -47.3 E30-E18 N09-N22
      9 1840  942 (S13W58 L=106)   860    111        3 (1812/ 901-1876/ 998) -56.3 W54-W62 S15-S09
     10  652  939 (N06E24 L= 24)   220     70        1 ( 621/ 911- 677/ 969)  26.6 E26-E22 N04-N07
     11  268  916 (N08E55 L=353)   672    130        2 ( 229/ 852- 298/ 968) -81.9 E59-E51 N03-N10
     12 1407  800 (S13W21 L= 68)   407    125        1 (1365/ 772-1459/ 853)  23.2 W17-W24 S14-S10
     13  514  584 (S15E41 L=  7)   915    279        0 ( 438/ 507- 557/ 694)  42.7 E50-E35 S19-S07
     14  266  605 (S12E65 L=343)   697     83        2 ( 246/ 560- 286/ 648)  56.3 E67-E62 S15-S09
     15  345  607 (S12E55 L=353)   363     49        1 ( 317/ 588- 370/ 623) -26.6 E57-E52 S13-S10
     16 1402  394 (S42W19 L= 67)   454     60        2 (1371/ 373-1442/ 411)   0.0 W15-W22 S43-S39
     17 1221  302 (S46W03 L= 50)   799    110        2 (1178/ 272-1281/ 332)   7.1 E01-W07 S48-S42
     18 1059  254 (S47E13 L= 35)   411     46        1 (1032/ 232-1085/ 275) -26.6 E14-E10 S49-S44
     19 1016  195 (S53E20 L= 28)   725     56        2 ( 988/ 165-1047/ 226) -59.0 E23-E16 S56-S48
  

    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