Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  536 1608 (N25E44 L=157)   342     76        1 ( 509/1572- 557/1629) -33.7 E47-E40 N22-N26
      2 1053 1530 (N26E05 L=195)   813    153        2 (1016/1459-1081/1592) -69.4 E08-E02 N21-N29
      3  310 1521 (N18E62 L=139)  2820    164        7 ( 242/1468- 364/1588)  69.4 E69-E55 N14-N22
      4  710 1549 (N23E28 L=172)   266     79        0 ( 680/1518- 746/1579) -31.0 E30-E24 N20-N24
      5  322 1426 (N12E55 L=145)   762     86        1 ( 289/1390- 349/1453) -23.2 E59-E52 N09-N13
      6  505 1395 (N11E38 L=162)   263     78        1 ( 486/1361- 526/1430)  78.7 E40-E37 N08-N13
      7 1735 1300 (N22W46 L=246)  2244    373        2 (1573/1177-1832/1406) -21.4 W31-W55 N16-N26
      8 1128 1360 (N15W02 L=202)   462     93        2 (1075/1323-1177/1395)   0.0 E01-W05 N13-N17
      9  497 1241 (N01E36 L=165)   501    147        1 ( 449/1214- 542/1279) -23.2 E40-E32 N00-N03
     10  894 1204 (N03E10 L=190)   351    102        1 ( 859/1156- 928/1247) -45.0 E12-E07 N00-N05
     11 1336  917 (S08W20 L=221)   255     82        0 (1314/ 892-1370/ 952) -36.9 W18-W22 S08-S05
     12  643  810 (S23E22 L=178)   557    144        1 ( 579/ 788- 711/ 836)  -6.3 E26-E17 S24-S21
     13 1275  756 (S18W19 L=220)   753    300        2 (1133/ 708-1405/ 798)  28.1 W10-W26 S22-S13
     14 1690  427 (S30W69 L=270)  3533    282        1 (1580/ 362-1807/ 519)  37.9 W60-W78 S35-S21
  

    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