Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1288 1837 (N67W15 L= 24)   670     81        1 (1253/1809-1318/1854) -12.5 W09-W20 N63-N69
      2 1448 1436 (N32W25 L= 34)  1376    335        3 (1385/1309-1561/1536) -45.0 W20-W33 N25-N39
      3  892 1426 (N24E14 L=355)   451     96        2 ( 861/1390- 923/1476)  71.6 E15-E12 N21-N27
      4  523 1434 (N20E41 L=328)   461     85        0 ( 480/1410- 566/1456)  -7.1 E44-E36 N18-N20
      5 1747 1315 (N28W52 L= 61)   577    133        3 (1727/1263-1777/1377) -74.1 W50-W55 N24-N31
      6  609 1324 (N14E31 L=338)   257     42        1 ( 585/1305- 636/1342)   0.0 E33-E29 N12-N14
      7 1344 1289 (N21W18 L= 26)   363    142        0 (1301/1252-1399/1341) -29.7 W14-W21 N19-N23
      8  709 1272 (N12E23 L=346)   215     46        1 ( 687/1253- 725/1297)  71.6 E24-E22 N10-N13
      9 1514 1033 (N07W31 L= 40)   389    112        0 (1487/ 993-1531/1088)  90.0 W29-W32 N04-N10
     10  886  803 (S14E06 L=  3)   490    182        1 ( 834/ 734- 924/ 884)  70.0 E08-E04 S19-S08
     11  472  728 (S25E35 L=334)  1263    175        2 ( 447/ 646- 498/ 814) -90.0 E37-E32 S30-S19
     12 1129  589 (S25W13 L= 22)  1270    391        1 ( 996/ 518-1251/ 726)  50.9 W04-W18 S31-S14
     13  554  532 (S38E30 L=339)   999    153        6 ( 520/ 469- 599/ 570)  53.1 E32-E25 S42-S34
     14 1289  532 (S27W25 L= 34)   431    119        0 (1239/ 497-1337/ 555)  39.8 W22-W28 S29-S24
     15 1510  473 (S28W45 L= 54)  2368    403        2 (1326/ 433-1687/ 507)  14.0 W31-W64 S33-S24
  

    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