Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  886 1748 (N49E25 L=293)   480     66        1 ( 849/1724- 925/1769)  38.7 E28-E22 N46-N51
      2 1583 1295 (N24W36 L=354)  2097    400        2 (1494/1139-1643/1447)  56.3 W29-W44 N13-N34
      3  339 1342 (N13E54 L=264)   344     44        1 ( 317/1319- 368/1357)   0.0 E56-E50 N11-N13
      4  421 1104 (S00E41 L=277)   872    163        2 ( 356/1079- 501/1147)   0.0 E46-E34 S02-N01
      5  452  934 (S11E37 L=281)   373    114        0 ( 421/ 908- 493/ 958)  -9.5 E39-E33 S12-S08
      6  285  910 (S14E52 L=266)   695    152        1 ( 226/ 862- 347/ 954)  24.8 E58-E45 S17-S10
      7  451  833 (S17E37 L=281)   374    120        2 ( 389/ 815- 507/ 860)   0.0 E41-E32 S17-S15
      8 1139  738 (S15W10 L=328)   557    191        0 (1107/ 672-1183/ 819) -58.0 W07-W14 S19-S10
      9  423  687 (S27E40 L=278)   379    121        0 ( 409/ 638- 440/ 750)  63.4 E42-E37 S30-S22
     10  498  710 (S24E33 L=285)   348     48        2 ( 474/ 684- 515/ 737)  63.4 E35-E31 S26-S22
     11 1722  516 (S24W65 L= 23)  2158    380        0 (1602/ 433-1829/ 646)  45.0 W56-W72 S30-S14
     12  390  618 (S32E45 L=273)   466    100        0 ( 346/ 605- 437/ 639)   0.0 E49-E39 S33-S30
     13  903  549 (S30E03 L=315)   243    118        0 ( 866/ 531- 947/ 582)  31.0 E05-W00 S31-S27
     14 1148  291 (S48W23 L=341)  1960    304        3 (1085/ 181-1210/ 428) -76.5 W17-W30 S60-S35
  

    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