Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1045 1843 (N56W09 L=310)   359     59        1 (1020/1825-1078/1855)  18.4 W06-W12 N54-N57
      2  782 1716 (N45E16 L=285)   508     64        1 ( 752/1690- 818/1736) -26.6 E19-E13 N43-N47
      3 1220 1634 (N36W18 L=319)   917    286        0 (1074/1612-1330/1653)  -9.0 W07-W26 N33-N37
      4 1632 1605 (N32W53 L=354)   401     89        0 (1589/1585-1672/1622) -14.0 W49-W57 N31-N33
      5  659 1542 (N32E24 L=277)   913    164        2 ( 571/1521- 740/1561)   0.0 E30-E17 N30-N33
      6 1654 1480 (N24W49 L=350)  1160    218        7 (1597/1423-1732/1542) -31.0 W44-W56 N19-N28
      7 1025 1463 (N25W02 L=303)  1446    424        3 ( 838/1353-1181/1521) -26.6 E10-W11 N17-N29
      8 1592 1356 (N16W40 L=341)  1379    394        3 (1457/1249-1747/1454) -33.0 W31-W51 N08-N22
      9 1296 1333 (N15W18 L=320)   912    317        1 (1227/1245-1386/1439) -72.9 W14-W23 N09-N22
     10 1804 1349 (N15W60 L=  1)   402     49        0 (1785/1328-1821/1385)  53.1 W57-W62 N13-N17
     11  893 1339 (N17E07 L=294)   221    107        1 ( 872/1285- 927/1375)  68.2 E08-E04 N14-N19
     12  254 1309 (N20E56 L=246)   546     68        3 ( 230/1279- 285/1340) -53.1 E58-E52 N17-N21
     13  314 1180 (N11E48 L=254)   744     98        1 ( 279/1149- 356/1211) -20.6 E51-E43 N09-N13
     14 1387  893 (S12W22 L=323)  1462    361        3 (1313/ 749-1486/1051)  62.1 W17-W28 S20-S02
     15 1634  807 (S18W40 L=342)   337     89        2 (1601/ 778-1658/ 840) -38.7 W37-W42 S19-S15
     16  979  744 (S19E04 L=297)   307    131        1 ( 963/ 682-1005/ 797)  74.1 E05-E02 S22-S15
     17 1453  620 (S29W28 L=329)   611    174        1 (1410/ 560-1502/ 708)  66.0 W25-W31 S32-S23
     18  726  596 (S27E23 L=279)   475    157        0 ( 681/ 536- 764/ 670)  45.0 E27-E18 S30-S22
     19 1332  507 (S36W20 L=322)   637    141        1 (1262/ 476-1397/ 551)  11.3 W15-W25 S38-S33
     20  988  442 (S39E06 L=295)   665    140        2 ( 920/ 419-1057/ 468) -10.3 E11-W00 S41-S37
     21  652  395 (S41E35 L=266)   543    101        2 ( 593/ 375- 703/ 415)  -5.7 E40-E29 S41-S39
  

    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