Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  430 1612 (N47E55 L= 19)  2415    221        3 ( 369/1544- 502/1693) -12.9 E89-E41 N41-N52
      2  681 1634 (N48E26 L= 49)   447     81        0 ( 649/1589- 709/1663) -40.6 E30-E21 N44-N50
      3 1322 1596 (N39W30 L=104)   320     72        1 (1281/1581-1363/1607)   0.0 W26-W33 N38-N39
      4 1177 1551 (N37W16 L= 91)   335    108        1 (1155/1508-1201/1602)  60.3 W13-W17 N34-N41
      5 1564 1503 (N30W47 L=121)  1017    187        0 (1497/1428-1605/1550) -77.5 W42-W49 N24-N33
      6  887 1347 (N26E07 L= 68)   363    103        1 ( 862/1297- 911/1392) -66.8 E08-E05 N22-N29
      7 1729 1349 (N18W56 L=130)   489     57        1 (1702/1320-1754/1378) -63.4 W53-W59 N15-N19
      8  651 1214 (N19E23 L= 51)   378    173        0 ( 630/1141- 687/1271)  82.9 E24-E20 N14-N22
      9  346  993 (N06E47 L= 28)   624    147        1 ( 285/ 956- 407/1029)   5.2 E52-E41 N03-N08
     10  519  881 (S01E34 L= 41)   935    271        3 ( 487/ 768- 587/ 998)  61.7 E36-E27 S08-N05
     11 1748  843 (S13W50 L=125)   542    144        0 (1711/ 790-1794/ 902)  36.9 W46-W54 S16-S09
     12 1320  841 (S09W17 L= 92)   559    137        2 (1281/ 792-1375/ 899) -60.3 W14-W20 S11-S04
     13  280  767 (S08E56 L= 19)   889    159        3 ( 216/ 717- 332/ 823) -28.6 E62-E51 S11-S04
     14 1224  781 (S12W11 L= 85)   308     73        2 (1198/ 745-1253/ 815)  76.0 W08-W12 S13-S09
     15 1532  663 (S22W32 L=107)   957    224        3 (1507/ 557-1574/ 760)  90.0 W31-W35 S29-S15
     16  882  690 (S15E11 L= 63)   269    122        0 ( 872/ 635- 894/ 749) -90.0 E12-E10 S18-S11
     17  261  650 (S16E63 L= 12)  1373    163        5 ( 236/ 582- 292/ 723)  39.8 E70-E57 S20-S10
     18  749  686 (S14E20 L= 55)   317    130        0 ( 701/ 658- 795/ 704)   0.0 E23-E17 S16-S13
     19 1371  585 (S26W21 L= 95)   479    120        0 (1331/ 539-1412/ 636)  45.0 W17-W23 S28-S22
     20  505  575 (S21E40 L= 34)   286     67        1 ( 475/ 554- 531/ 592) -11.3 E42-E37 S22-S19
     21  473  372 (S36E55 L= 19)   628     94        0 ( 432/ 360- 524/ 390)  -5.7 E60-E49 S37-S34
     22  872  360 (S39E18 L= 57)   328     48        0 ( 848/ 335- 897/ 384)  38.7 E20-E15 S40-S36
  

    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