Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1199 1702 (N39E11 L=341)  1023    187        3 (1162/1631-1223/1764) -55.0 E15-E07 N33-N44
      2  755 1695 (N25E38 L=314)   409    102        1 ( 734/1650- 779/1737) -56.3 E40-E34 N22-N28
      3 1519 1374 (N28W20 L= 12)   319     91        0 (1503/1333-1537/1424) -51.3 W17-W21 N25-N30
      4 1606 1344 (N29W27 L= 19)   380    108        0 (1586/1290-1623/1399) -56.3 W24-W28 N25-N31
      5 1247 1275 (N13W05 L=357)   276     94        2 (1217/1255-1286/1309) -14.0 W03-W07 N11-N14
      6  181 1224 (S15E66 L=286)  1874    242        3 ( 112/1144- 228/1293)  34.7 E76-E60 S19-S10
      7  331 1225 (S12E49 L=303)   502    128        0 ( 294/1185- 375/1274) -26.6 E54-E44 S13-S09
      8 1106 1193 (N05E00 L=352)   546    202        1 (1007/1179-1202/1211)  37.9 E05-W04 N01-N08
      9 1586 1132 (N15W30 L= 21)   260    100        0 (1544/1109-1628/1164)   9.5 W26-W32 N14-N16
     10  280 1134 (S18E52 L=300)   692     84        3 ( 237/1096- 316/1163) -23.2 E56-E47 S19-S16
     11  378 1084 (S19E42 L=310)   289     72        0 ( 351/1064- 403/1123)  63.4 E44-E40 S20-S16
     12  690 1003 (S16E18 L=334)   583    155        1 ( 630/ 947- 750/1038)  60.3 E20-E14 S20-S13
     13 1657  990 (N10W38 L= 30)   334    135        0 (1626/ 945-1713/1016)  45.0 W36-W42 N06-N12
     14  198  692 (S47E66 L=286)   780     68        1 ( 159/ 673- 229/ 710)  -3.6 E75-E59 S48-S45
     15  402  669 (S44E35 L=316)   290     58        0 ( 372/ 650- 427/ 688)  -9.5 E38-E32 S45-S42
     16  988  650 (S28W09 L=  1)   191     46        1 ( 972/ 625-1008/ 675) -45.0 W07-W10 S29-S26
     17 1766  634 (S05W61 L= 53)   676     72        1 (1740/ 595-1794/ 666)  78.7 W59-W63 S07-S02
     18 1178  606 (S25W22 L= 14)   325    125        0 (1138/ 557-1227/ 643)  -7.1 W18-W26 S26-S23
     19 1304  564 (S23W31 L= 23)   225     34        1 (1276/ 549-1328/ 584)  33.7 W29-W32 S24-S21
     20 1475  510 (S21W45 L= 37)   292     62        0 (1442/ 497-1514/ 524)  21.8 W42-W47 S22-S19
     21 1639  443 (S18W63 L= 55)   402     17        0 (1619/ 427-1663/ 462)  11.3 W60-W65 S19-S17
  

    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