Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1378 1643 (N46W08 L=127)  1104    204        0 (1354/1561-1406/1727) -69.0 W05-W12 N39-N53
      2  483 1659 (N23E57 L= 62)   648    158        3 ( 466/1603- 504/1712) -53.1 E59-E53 N18-N26
      3  902 1668 (N33E27 L= 92)   348     55        0 ( 883/1644- 919/1697) -76.0 E27-E24 N31-N35
      4 1622 1593 (N51W34 L=152)   541    132        0 (1584/1563-1659/1615)  12.5 W28-W38 N48-N53
      5  969 1555 (N27E17 L=101)   238     27        0 ( 949/1542- 997/1573)   0.0 E19-E15 N26-N28
      6  649 1503 (N16E36 L= 83)   332    127        0 ( 623/1472- 686/1550) -26.6 E38-E32 N14-N18
      7  972 1368 (N16E11 L=107)   400    125        1 ( 960/1301- 989/1432) -58.0 E13-E08 N11-N19
      8  228 1206 (S10E60 L= 58)   946    185        2 ( 197/1146- 261/1254) -74.1 E63-E56 S13-S06
      9 1298 1215 (N14W11 L=130)   305     57        2 (1264/1187-1328/1243)  36.9 W09-W13 N12-N16
     10  298 1211 (S08E53 L= 66)   322     47        1 ( 278/1182- 322/1230) -26.6 E55-E50 S09-S06
     11 1122 1051 (N01W05 L=124)   233     49        3 (1090/1033-1150/1073)  14.0 W02-W06 N00-N02
     12 1746 1000 (N13W47 L=166)   402     83        0 (1713/ 977-1775/1027)  45.0 W45-W49 N11-N15
     13  635  755 (S28E18 L=101)   312     71        1 ( 596/ 736- 669/ 772)   9.5 E21-E15 S28-S25
     14 1671  513 (S16W60 L=179)   663    120        0 (1632/ 487-1700/ 535)  26.6 W56-W63 S17-S14
     15 1342  268 (S40W50 L=168)  1005    228        0 (1261/ 255-1430/ 284)  15.9 W43-W57 S42-S37
  

    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